#!perl -T

use Test::More qw(no_plan);

BEGIN {
	use_ok( 'Games::Go::KGS' );
}

diag( "Testing Games::Go::KGS $Games::Go::KGS::VERSION, Perl $], $^X" );

my $o = Games::Go::KGS->new(user => 'metaperl');
my $x = $o->parse;

use Data::Dumper;
warn Dumper($x);

ok(1, 'test xml generation');
